home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / progtool / modula2 / module / mousepos.def < prev    next >
Encoding:
Modula Definition  |  1995-11-25  |  2.3 KB  |  41 lines
  1. (******************************************************************************)
  2. (*      This MODULE is Public Domain. Copy me like a beast!                   *)
  3. (*               Christian Ledermann                                          *)
  4. (*               Wölfelkofen 2                                                *)
  5. (*               84166 Adlkofen                                               *)
  6. (******************************************************************************)
  7. (*                                                                            *)
  8. (* Started:   20.12.92     03:54:30                                           *)
  9. (* Version:   20.01.94     04:12:54                                           *)
  10. (*                                                                            *)
  11. (******************************************************************************)
  12. (*                                                                            *)
  13. (* Diese Software ist ohne jede Garantie. Ich verspreche                      *)
  14. (* keinerlei Wartung und übernehme keine Verantwortung für Schäden die        *)
  15. (* durch die Benutzung dieses Programmes entstehen.                           *)
  16. (* Jegliche Ersatzansprüche lehne ich ab.                                     *)
  17. (*                                                                            *)
  18. (******************************************************************************)
  19. DEFINITION MODULE MousePosition;
  20. (******************************************************)
  21. (* Ein paar einfache Routinen zum Erfragen und Setzen *)
  22. (* des Mauszeigers                                    *)
  23. (******************************************************)
  24.  
  25. PROCEDURE GetMousePos(VAR MouseX, MouseY, Window : INTEGER);
  26. (******************************************************)
  27. (* Wo ist die Maus ? x,y-Position und Fenster über dem*)
  28. (* sie sich befindet.                                 *)
  29. (******************************************************)
  30.  
  31.  
  32.  
  33. PROCEDURE SetMousePos( MouseX, MouseY : INTEGER);
  34. (******************************************************)
  35. (* Setzt die Maus auf Position x,y                    *)
  36. (* Beshreibung von ApplTPlayback -> ST 4/88           *)
  37. (******************************************************)
  38.  
  39.  
  40. END  MousePosition.
  41.